Macworld Expo - Develope…Central & Net Innovations/Developer Central and Net Innovators (MacWorld Expo) (January 1999).iso/Developer Central/Bowers Development/Demo AppMaker/Examples/Pascal OS8/Everything/EverythingEngine.p

Text File | 1998-10-30 | 4.2 KB | 196 lines | [TEXT/CWIE]

{ EverythingEngine.p -- application-specific data management }
{ Created 10/30/98 1:06 PM by AppMaker }

{ This module contains data structures to access the data in your }
{ document's file(s). The purpose is to isolate the details of the }
{ data representation into this module and to provide accessor }
{ functions for reading/writing logical pieces of the data. }
{ For your application, you will probably rewrite most of this. }
{ This module will not be regenerated by AppMaker unless you delete it. }

Unit EverythingEngine;
Interface

Uses
    Types,
    Quickdraw,
    Controls,
    Events,
    Files,
    Lists,
    Menus,
    DDocData,
    DModalCheckboxesData,
    DModalRadiosData,
    DModalTextData,
    DModalStuffData,
    DModalBarsData,
    DModelessCheckboxesData,
    DModelessRadiosData,
    DModelessTextData,
    DModelessStuffData,
    DModelessBarsData,
    TextEdit,
    AMEngine;

const
    kSignature        = 'XXXX';
    kFileType        = 'TEXT';

type
    EverythingEngine        = object (AMEngine)

    {data members}

    {methods - public}
        Procedure Initialize; Override;

        Function  GetDocData: DDocData;
        Function  GetModalCheckboxesData: DModalCheckboxesData;
        Function  GetModalRadiosData: DModalRadiosData;
        Function  GetModalTextData: DModalTextData;
        Function  GetModalStuffData: DModalStuffData;
        Function  GetModalBarsData: DModalBarsData;
        Function  GetModelessCheckboxesData: DModelessCheckboxesData;
        Function  GetModelessRadiosData: DModelessRadiosData;
        Function  GetModelessTextData: DModelessTextData;
        Function  GetModelessStuffData: DModelessStuffData;
        Function  GetModelessBarsData: DModelessBarsData;

    {methods - internal}
        Procedure InitData; Override;
        Procedure DisposeData; Override;
        Procedure ReadFile; Override;
        Procedure WriteFile; Override;
    end;

{----------}
Function NewEverythingEngine: EverythingEngine;

{----------}
Implementation

Uses
    Globals,
    Miscellany;

{----------}
Function NewEverythingEngine: EverythingEngine;
var
    engine:        EverythingEngine;
begin
    New (engine);
    if engine <> nil then begin
        engine.Initialize;
    end;
    NewEverythingEngine := engine;
end;

{----------}
Procedure EverythingEngine.Initialize;
begin
    inherited Initialize;

    mFileType := kFiletype;
    mSignature := kSignature;
end;

{ These are just models for your own data access functions. }
{ Replace them with ones that do something useful. }

{----------}
Function EverythingEngine.GetDocData: DDocData;
begin
    GetDocData := NewDDocData;
end;

{----------}
Function EverythingEngine.GetModalCheckboxesData: DModalCheckboxesData;
begin
    GetModalCheckboxesData := NewDModalCheckboxesData;
end;

{----------}
Function EverythingEngine.GetModalRadiosData: DModalRadiosData;
begin
    GetModalRadiosData := NewDModalRadiosData;
end;

{----------}
Function EverythingEngine.GetModalTextData: DModalTextData;
begin
    GetModalTextData := NewDModalTextData;
end;

{----------}
Function EverythingEngine.GetModalStuffData: DModalStuffData;
begin
    GetModalStuffData := NewDModalStuffData;
end;

{----------}
Function EverythingEngine.GetModalBarsData: DModalBarsData;
begin
    GetModalBarsData := NewDModalBarsData;
end;

{----------}
Function EverythingEngine.GetModelessCheckboxesData: DModelessCheckboxesData;
begin
    GetModelessCheckboxesData := NewDModelessCheckboxesData;
end;

{----------}
Function EverythingEngine.GetModelessRadiosData: DModelessRadiosData;
begin
    GetModelessRadiosData := NewDModelessRadiosData;
end;

{----------}
Function EverythingEngine.GetModelessTextData: DModelessTextData;
begin
    GetModelessTextData := NewDModelessTextData;
end;

{----------}
Function EverythingEngine.GetModelessStuffData: DModelessStuffData;
begin
    GetModelessStuffData := NewDModelessStuffData;
end;

{----------}
Function EverythingEngine.GetModelessBarsData: DModelessBarsData;
begin
    GetModelessBarsData := NewDModelessBarsData;
end;


{----------}
Procedure EverythingEngine.InitData;
begin
    {override to initialize your data structures}
end;

{----------}
Procedure EverythingEngine.DisposeData;
begin
    {override to dispose your data structures}
end;

{----------}
Procedure EverythingEngine.ReadFile;
begin
    InitData;
    mDirty := false;
    {override to read from the current file into your data structures}
end;

{----------}
Procedure EverythingEngine.WriteFile;
begin
    mDirty := false;
    {override to write your data structures to the current file}
end;

end.